home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / qsrc_dsk.zip / MODEL / WIDGET.MPR < prev    next >
Text File  |  1992-01-14  |  14KB  |  329 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 01/14/92             WIDGET.MPR               12:00:35  ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Lisa C. Slater and Steven E. Arnott                     ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1992                                      ║
  10. *       ║ Application developed for _Using FoxPro 2_              ║
  11. *       ║ Que Publishing Corporation                              ║
  12. *       ║ ISBN 0-88022-703-6                                      ║
  13. *       ║                                                         ║
  14. *       ║ Description:                                            ║
  15. *       ║ This program was automatically generated by GENMENU.    ║
  16. *       ║                                                         ║
  17. *       ╙─────────────────────────────────────────────────────────╜
  18.  
  19.  
  20. *       ╓─────────────────────────────────────────────────────────╖
  21. *       ║                                                         ║
  22. *       ║                        Setup Code                       ║
  23. *       ║                                                         ║
  24. *       ╙─────────────────────────────────────────────────────────╜
  25. *
  26.  
  27. PUBLIC m.resource, m.oldresource, m.help, m.oldhelp, ;
  28.        m.oldfull, m.oldtalk, m.oldexcl, m.newpath
  29. IF SET("TALK") = "ON"
  30.    SET TALK OFF
  31.    m.oldtalk = "ON"
  32. ENDIF
  33. m.resource = SET("RESOURCE")
  34. m.oldresource = SET("RESOURCE",1)
  35. m.help = SET("HELP")
  36. m.oldhelp = SET("HELP",1)
  37. m.oldfull = SET("FULLPATH")
  38. m.oldexcl = SET("EXCLUSIVE")
  39. m.newpath = SUBSTR(SYS(16),1,RAT("\", SYS(16)))
  40. IF ! EMPTY(SET("PATH"))
  41.    m.newpath = SET("PATH")+","+ m.newpath
  42. ENDIF
  43. SET PATH TO &newpath
  44. SET RESOURCE ON
  45. SET RESOURCE TO W_USER
  46. SET HELP ON
  47. SET HELP TO Widghelp
  48. SET FULLPATH ON
  49.  
  50. SET EXCLUSIVE ON
  51.  
  52.  
  53. * Note:  SET EXCLUSIVE is ON in this application for two reasons:
  54.  
  55.    * First, We are showing the movement of some system
  56.    * bar options from one native pad (Database) which is
  57.    * not usable in a READ to a custom pad (Utilities) which
  58.    * will allow them to be used.  These two bar options,
  59.    * PACK and REINDEX, require EXCLUSIVE use and do no checking
  60.    * of their own.  In a regular application, you would substitute
  61.    * your own PACKing and REINDEXing routines which would do
  62.    * appropriate checks.  However, you can use this technique
  63.    * with other native menu options (such as windowing options)
  64.    * that you want to move to another pad.
  65.  
  66.    * Second, in versions previous to November 1991, FoxPro 2
  67.    * does not do an automatic record lock on certain commands
  68.    * that save information to memo fields.  Among these commands
  69.    * is the SAVE WINDOWS ALL command used in PROCEDURE errlog.
  70.    * We didn't want to put an explicit RLOCK(), that is technically
  71.    * not needed in the updated product, into the code at that point.
  72.  
  73. SET SYSMENU AUTOMATIC
  74.  
  75.  
  76.  
  77. *       ╓─────────────────────────────────────────────────────────╖
  78. *       ║                                                         ║
  79. *       ║                      Menu Definition                    ║
  80. *       ║                                                         ║
  81. *       ╙─────────────────────────────────────────────────────────╜
  82. *
  83.  
  84. SET SYSMENU TO
  85.  
  86. SET SYSMENU AUTOMATIC
  87.  
  88. DEFINE PAD _MSM_SYSTM OF _MSYSMENU PROMPT "\<System" COLOR SCHEME 3 ;
  89.     KEY ALT+S, ""
  90. DEFINE PAD _MSM_EDIT OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
  91.     KEY ALT+E, ""
  92. DEFINE PAD _q2a0pqpeh OF _MSYSMENU PROMPT "\<Tables" COLOR SCHEME 3 ;
  93.     KEY ALT+T, "ALT+T" ;
  94.     SKIP FOR RDLEVEL() > 0
  95. DEFINE PAD _MSM_RECRD OF _MSYSMENU PROMPT "\<Records" COLOR SCHEME 3 ;
  96.     KEY ALT+R, ""
  97. DEFINE PAD RESULTS OF _MSYSMENU PROMPT "Resu\<lts" COLOR SCHEME 3 ;
  98.     KEY ALT+L, "ALT+L"
  99. DEFINE PAD _q2a0pqpgb OF _MSYSMENU PROMPT "\<Utilities" COLOR SCHEME 3 ;
  100.     KEY ALT+U, "ALT+U"
  101. DEFINE PAD _MSM_WINDO OF _MSYSMENU PROMPT "\<Windows" COLOR SCHEME 3 ;
  102.     KEY ALT+W, ""
  103. ON PAD _MSM_SYSTM OF _MSYSMENU ACTIVATE POPUP _msystem
  104. ON PAD _MSM_EDIT OF _MSYSMENU ACTIVATE POPUP _medit
  105. ON PAD _q2a0pqpeh OF _MSYSMENU ACTIVATE POPUP tables
  106. ON PAD _MSM_RECRD OF _MSYSMENU ACTIVATE POPUP records
  107. ON PAD RESULTS OF _MSYSMENU ACTIVATE POPUP results
  108. ON PAD _q2a0pqpgb OF _MSYSMENU ACTIVATE POPUP utilities
  109. ON PAD _MSM_WINDO OF _MSYSMENU ACTIVATE POPUP newwind
  110.  
  111. DEFINE POPUP _msystem MARGIN RELATIVE SHADOW COLOR SCHEME 4
  112. DEFINE BAR _MST_ABOUT OF _msystem PROMPT "\<About FoxPro..."
  113. DEFINE BAR 2 OF _msystem PROMPT "\<Help..." ;
  114.     KEY F1, "F1"
  115. DEFINE BAR _MST_MACRO OF _msystem PROMPT "\<Macros..."
  116. DEFINE BAR _MST_SP100 OF _msystem PROMPT "\-"
  117. DEFINE BAR _MST_FILER OF _msystem PROMPT "\<Filer"
  118. DEFINE BAR _MST_CALCU OF _msystem PROMPT "\<Calculator"
  119. DEFINE BAR _MST_DIARY OF _msystem PROMPT "Calendar/\<Diary"
  120. DEFINE BAR _MST_SPECL OF _msystem PROMPT "\<Special Characters"
  121. DEFINE BAR _MST_ASCII OF _msystem PROMPT "ASC\<II Chart"
  122. DEFINE BAR _MST_CAPTR OF _msystem PROMPT "Ca\<pture"
  123. DEFINE BAR _MST_PUZZL OF _msystem PROMPT "Pu\<zzle"
  124. DEFINE BAR 12 OF _msystem PROMPT "\-"
  125. DEFINE BAR 13 OF _msystem PROMPT "\<Quit" ;
  126.     SKIP FOR RDLEVEL() > 0
  127. ON SELECTION BAR 2 OF _msystem WAIT WINDOW "Help System not yet available -- see WIDGET2.APP"
  128. ON SELECTION BAR 13 OF _msystem ;
  129.     DO _q2a0pqpum ;
  130.     IN LOCFILE("WIDGET" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET?")
  131.  
  132. DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
  133. DEFINE BAR _MED_UNDO OF _medit PROMPT "\<Undo" ;
  134.     KEY CTRL+U, "^U"
  135. DEFINE BAR _MED_REDO OF _medit PROMPT "\<Redo" ;
  136.     KEY CTRL+R, "^R"
  137. DEFINE BAR _MED_SP100 OF _medit PROMPT "\-"
  138. DEFINE BAR _MED_CUT OF _medit PROMPT "Cu\<t" ;
  139.     KEY CTRL+X, "^X"
  140. DEFINE BAR _MED_COPY OF _medit PROMPT "\<Copy" ;
  141.     KEY CTRL+C, "^C"
  142. DEFINE BAR _MED_PASTE OF _medit PROMPT "\<Paste" ;
  143.     KEY CTRL+V, "^V"
  144. DEFINE BAR _MED_CLEAR OF _medit PROMPT "Clear"
  145. DEFINE BAR _MED_SP200 OF _medit PROMPT "\-"
  146. DEFINE BAR _MED_SLCTA OF _medit PROMPT "Select \<All" ;
  147.     KEY CTRL+A, "^A"
  148. DEFINE BAR _MED_SP300 OF _medit PROMPT "\-"
  149. DEFINE BAR _MED_GOTO OF _medit PROMPT "Goto \<Line..."
  150. DEFINE BAR _MED_FIND OF _medit PROMPT "\<Find..." ;
  151.     KEY CTRL+F, "^F"
  152. DEFINE BAR _MED_FINDA OF _medit PROMPT "Find A\<gain" ;
  153.     KEY CTRL+G, "^G"
  154. DEFINE BAR _MED_REPL OF _medit PROMPT "R\<eplace And Find Again" ;
  155.     KEY CTRL+E, "^E"
  156. DEFINE BAR _MED_REPLA OF _medit PROMPT "Replace All"
  157. DEFINE BAR _MED_SP400 OF _medit PROMPT "\-"
  158. DEFINE BAR _MED_PREF OF _medit PROMPT "Prefere\<nces..."
  159.  
  160. DEFINE POPUP tables MARGIN RELATIVE SHADOW COLOR SCHEME 4
  161. DEFINE BAR 1 OF tables PROMPT "\<Budget Entries"
  162. DEFINE BAR 2 OF tables PROMPT "\-"
  163. DEFINE BAR 3 OF tables PROMPT "\<Products"
  164. DEFINE BAR 4 OF tables PROMPT "Budget \<Categories"
  165. DEFINE BAR 5 OF tables PROMPT "\<Departments"
  166. DEFINE BAR 6 OF tables PROMPT "C\<ustomers"
  167. ON SELECTION BAR 1 OF tables DO budget.spr
  168. ON SELECTION BAR 3 OF tables ;
  169.     DO _q2a0pqqdq ;
  170.     IN LOCFILE("WIDGET" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET?")
  171. ON SELECTION BAR 4 OF tables DO budcat.spr
  172. ON SELECTION BAR 5 OF tables DO dept.spr
  173.  
  174. DEFINE POPUP records MARGIN RELATIVE SHADOW COLOR SCHEME 4
  175. DEFINE BAR _MRC_GOTO OF records PROMPT "\<Goto..."
  176. DEFINE BAR _MRC_LOCAT OF records PROMPT "\<Locate..."
  177. DEFINE BAR _MRC_CONT OF records PROMPT "\<Continue" ;
  178.     KEY CTRL+K, "^K"
  179. DEFINE BAR _MRC_SEEK OF records PROMPT "\<Seek..."
  180. DEFINE BAR _MRC_SP200 OF records PROMPT "\-"
  181. DEFINE BAR 6 OF records PROMPT "\<Order..."
  182. DEFINE BAR _MDA_PACK OF records PROMPT "\<Pack"
  183. DEFINE BAR _MDA_RINDX OF records PROMPT "Reinde\<x"
  184. ON SELECTION BAR 6 OF records DO getorder.spr
  185.  
  186. DEFINE POPUP results MARGIN RELATIVE SHADOW COLOR SCHEME 4
  187. DEFINE BAR _MDA_BROW OF results PROMPT "\<Browse"
  188. DEFINE BAR 2 OF results PROMPT "Close \<Table" ;
  189.     SKIP FOR RDLEVEL() > 0
  190. DEFINE BAR _MDA_SP100 OF results PROMPT "\-"
  191. DEFINE BAR _MDA_AVG OF results PROMPT "A\<verage..."
  192. DEFINE BAR _MDA_COUNT OF results PROMPT "C\<ount..."
  193. DEFINE BAR _MDA_SUM OF results PROMPT "Su\<m..."
  194. DEFINE BAR _MDA_CALC OF results PROMPT "Calculat\<e..."
  195. DEFINE BAR 8 OF results PROMPT "\-"
  196. DEFINE BAR 9 OF results PROMPT "\<Report on Budget"
  197. ON SELECTION BAR 2 OF results USE
  198. ON SELECTION BAR 9 OF results ;
  199.     DO _q2a0pqqv3 ;
  200.     IN LOCFILE("WIDGET" ,"MPX;MPR|FXP;PRG" ,"Where is WIDGET?")
  201.  
  202. DEFINE POPUP utilities MARGIN RELATIVE SHADOW COLOR SCHEME 4
  203. DEFINE BAR _MFI_PRINT OF utilities PROMPT "\<Print..."
  204. DEFINE BAR _MFI_SETUP OF utilities PROMPT "\<Printer Setup..."
  205.  
  206. DEFINE POPUP newwind MARGIN RELATIVE SHADOW COLOR SCHEME 4
  207. DEFINE BAR _MWI_HIDE OF newwind PROMPT "\<Hide"
  208. DEFINE BAR _MWI_HIDEA OF newwind PROMPT "\<Hide All"
  209. DEFINE BAR _MWI_SHOWA OF newwind PROMPT "Sh\<ow All"
  210. DEFINE BAR _MWI_CLEAR OF newwind PROMPT "Clea\<r"
  211. DEFINE BAR _MWI_SP100 OF newwind PROMPT "\-"
  212. DEFINE BAR _MWI_MOVE OF newwind PROMPT "\<Move" ;
  213.     KEY CTRL+F7, "^F7"
  214. DEFINE BAR _MWI_SIZE OF newwind PROMPT "\<Size" ;
  215.     KEY CTRL+F8, "^F8"
  216. DEFINE BAR _MWI_ZOOM OF newwind PROMPT "\<Zoom " ;
  217.     KEY CTRL+F10, "^F10"
  218. DEFINE BAR _MWI_MIN OF newwind PROMPT "Z\<oom " ;
  219.     KEY CTRL+F9, "^F9"
  220. DEFINE BAR _MWI_ROTAT OF newwind PROMPT "\<Cycle" ;
  221.     KEY CTRL+F1, "^F1"
  222. DEFINE BAR _MWI_SP200 OF newwind PROMPT "\-"
  223. DEFINE BAR _MWI_CMD OF newwind PROMPT "Command" ;
  224.     KEY CTRL+F2, "^F2"
  225. DEFINE BAR _MWI_DEBUG OF newwind PROMPT "\<Debug"
  226. DEFINE BAR _MWI_TRACE OF newwind PROMPT "\<Trace"
  227.  
  228. ON SELECTION POPUP tables WAIT WINDOW "Data Entry not yet available for this Table."
  229.  
  230. *       ╓─────────────────────────────────────────────────────────╖
  231. *       ║                                                         ║
  232. *       ║ _Q2A0PQPUM  ON SELECTION BAR 13 OF POPUP _msystem       ║
  233. *       ║                                                         ║
  234. *       ║ Procedure Origin:                                       ║
  235. *       ║                                                         ║
  236. *       ║ From Menu:  WIDGET.MPR,            Record:   17         ║
  237. *       ║ Called By:  ON SELECTION BAR 13 OF POPUP _msystem       ║
  238. *       ║ Prompt:     Quit                                        ║
  239. *       ║ Snippet:    1                                           ║
  240. *       ║                                                         ║
  241. *       ╙─────────────────────────────────────────────────────────╜
  242. *
  243. PROCEDURE _q2a0pqpum
  244. IF "SUPPORT" $ UPPER(VERSION(1))
  245.     * DO any necessary cleanup
  246.     QUIT
  247. ELSE
  248.     SET SYSMENU TO DEFAULT
  249.     ACTIVATE WINDOW Command IN SCREEN
  250.     IF FILE(m.oldresource)
  251.         * if RESOURCE was SET OFF in CONFIG.FP,
  252.         * the file pointed to might not exist
  253.         SET RESOURCE TO (m.oldresource)
  254.     ENDIF
  255.     IF m.resource = "OFF"
  256.       SET RESOURCE OFF
  257.     ENDIF
  258.     IF FILE(m.oldhelp)
  259.        SET HELP TO (m.oldhelp)
  260.     ENDIF
  261.     IF m.help = "OFF"
  262.        SET HELP OFF
  263.     ENDIF
  264.     IF "," $ m.newpath
  265.        SET PATH TO (SUBSTR(m.newpath,1,RAT(",",m.newpath)-1))
  266.     ELSE
  267.        SET PATH TO
  268.     ENDIF
  269.     SET FULLPATH &oldfull
  270.     SET EXCLUSIVE &oldexcl
  271.     IF ! EMPTY(m.oldtalk)
  272.        SET TALK ON
  273.     ENDIF
  274.     RELEASE m.resource, m.oldresource, m.help, m.oldhelp, ;
  275.             m.oldfull, m.oldtalk, m.oldexcl, m.newpath
  276.  
  277.     * the following are PUBLIC vars setup by FoxApp that
  278.     * don't get properly released by FoxApp itself:
  279.     RELEASE bailout, dbfname, win_name, filt_expr, srchterm
  280.     * from FoxApp's generated SETUP program
  281.     RELEASE act3 && from APPCNTRL
  282.     RELEASE m.skipvar  && from APPMENU
  283.  
  284.     * DO other cleanup
  285.     CANCEL
  286. ENDIF        
  287.  
  288.  
  289. *       ╓─────────────────────────────────────────────────────────╖
  290. *       ║                                                         ║
  291. *       ║ _Q2A0PQQDQ  ON SELECTION BAR 3 OF POPUP tables          ║
  292. *       ║                                                         ║
  293. *       ║ Procedure Origin:                                       ║
  294. *       ║                                                         ║
  295. *       ║ From Menu:  WIDGET.MPR,            Record:   41         ║
  296. *       ║ Called By:  ON SELECTION BAR 3 OF POPUP tables          ║
  297. *       ║ Prompt:     Products                                    ║
  298. *       ║ Snippet:    2                                           ║
  299. *       ║                                                         ║
  300. *       ╙─────────────────────────────────────────────────────────╜
  301. *
  302. PROCEDURE _q2a0pqqdq
  303. WAIT WINDOW "Courtesy of FoxApp... " NOWAIT
  304. DO product.app
  305.  
  306.  
  307.  
  308. *       ╓─────────────────────────────────────────────────────────╖
  309. *       ║                                                         ║
  310. *       ║ _Q2A0PQQV3  ON SELECTION BAR 9 OF POPUP results         ║
  311. *       ║                                                         ║
  312. *       ║ Procedure Origin:                                       ║
  313. *       ║                                                         ║
  314. *       ║ From Menu:  WIDGET.MPR,            Record:   65         ║
  315. *       ║ Called By:  ON SELECTION BAR 9 OF POPUP results         ║
  316. *       ║ Prompt:     Report on Budget                            ║
  317. *       ║ Snippet:    3                                           ║
  318. *       ║                                                         ║
  319. *       ╙─────────────────────────────────────────────────────────╜
  320. *
  321. PROCEDURE _q2a0pqqv3
  322. IF TYPE("big_item") = "U"
  323.    big_item = 0
  324. ENDIF
  325. DO ask.spr WITH "Smallest entry to mark:", big_item,"99999"
  326. REPORT FORM Model PREVIEW ENVIRONMENT
  327.  
  328.  
  329.